(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     85759,       2197]
NotebookOptionsPosition[     84118,       2148]
NotebookOutlinePosition[     84462,       2163]
CellTagsIndexPosition[     84419,       2160]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{
  "FSF", ",", "H", ",", "a1", ",", "a2", ",", "a3", ",", "a4", ",", "b1", ",",
    "b2", ",", "b3", ",", "b4", ",", "c1", ",", "c2", ",", "c3", ",", "c4", 
   ",", "d1", ",", "d2", ",", "d3", ",", "d4"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FSF", "=", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"15", "12.496056384008755", "13.330704256005838", "11.29455641418533"},
       {"12.496056384008755", "15", "12.496056384008755", 
        "13.330704256005838"},
       {"13.330704256005838", "12.496056384008755", "15", 
        "12.496056384008755"},
       {"11.29455641418533", "13.330704256005838", "12.496056384008755", "15"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"b1", ",", "b2", ",", "b3", ",", "b4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"c1", ",", "c2", ",", "c3", ",", "c4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"d1", ",", "d2", ",", "d3", ",", "d4"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "H", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "16", "}"}], ",", 
     RowBox[{"{", "4", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", " ", 
   RowBox[{"i", "\[LessEqual]", "16"}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", " ", 
     RowBox[{"j", "\[LessEqual]", "4"}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
       RowBox[{"i", "+", "j", "-", "1"}]}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"v", "[", 
  RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "5", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "6", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "6", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "7", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "7", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "8", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "8", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "9", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "9", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "10", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "10", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "11", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "11", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "12", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "12", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "13", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "13", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "14", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "14", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "15", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "15", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "16", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "16", "]"}], "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "a1", ",", "a2", ",", "a3", ",", "a4", ",", "b1", ",", "b2", ",", "b3", 
     ",", "b4", ",", "c1", ",", "c2", ",", "c3", ",", "c4", ",", "d1", ",", 
     "d2", ",", "d3", ",", "d4"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.5311291890313935`*^9, 3.5311294632550783`*^9}, {
  3.5311295062625384`*^9, 3.5311296794684453`*^9}, {3.5311297170205927`*^9, 
  3.531129724044995*^9}, {3.531129794896047*^9, 3.531129843633835*^9}, {
  3.53112987520164*^9, 3.531129973526264*^9}, {3.5311300364218616`*^9, 
  3.5311300485495553`*^9}, {3.531130090518956*^9, 3.531130170521532*^9}, {
  3.531130332305785*^9, 3.531130390990142*^9}, {3.5311304542877626`*^9, 
  3.531130484406485*^9}, {3.531130516708332*^9, 3.53113062961279*^9}},
 FontSize->24],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{{3.5311292910462284`*^9, 3.5311293023558755`*^9}, 
   3.5311294220117197`*^9, 3.5311294681033554`*^9, {3.5311296333398066`*^9, 
   3.5311296801894865`*^9}, 3.531129725231063*^9, {3.5311297992002935`*^9, 
   3.531129844282872*^9}, {3.5311298867413006`*^9, 3.531129974292308*^9}, {
   3.5311300370788994`*^9, 3.5311300495226107`*^9}, {3.531130095001212*^9, 
   3.5311301716335955`*^9}, 3.5311306589704695`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "::", "\<\"svars\"\>"}], ":", 
  " ", "\<\"Equations may not give solutions for all \\\"solve\\\" variables. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/svars\\\", \
ButtonNote -> \\\"Solve::svars\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.531130659078476*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a1", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "20.919817084376504`"}], "+", 
      RowBox[{"1.`", " ", "a3"}], "+", 
      RowBox[{"2.`", " ", "a4"}]}]}], ",", 
    RowBox[{"a2", "\[Rule]", 
     RowBox[{"73.04113413857642`", "\[InvisibleSpace]", "-", 
      RowBox[{"2.`", " ", "a3"}], "-", 
      RowBox[{"3.`", " ", "a4"}]}]}], ",", 
    RowBox[{"b1", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "26.66140851201167`"}], "+", 
      RowBox[{"1.`", " ", "b3"}], "+", 
      RowBox[{"2.`", " ", "b4"}]}]}], ",", 
    RowBox[{"b2", "\[Rule]", 
     RowBox[{"79.98422553603501`", "\[InvisibleSpace]", "-", 
      RowBox[{"2.`", " ", "b3"}], "-", 
      RowBox[{"3.`", " ", "b4"}]}]}], ",", 
    RowBox[{"c1", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "26.66140851201167`"}], "+", 
      RowBox[{"1.`", " ", "c3"}], "+", 
      RowBox[{"2.`", " ", "c4"}]}]}], ",", 
    RowBox[{"c2", "\[Rule]", 
     RowBox[{"79.98422553603501`", "\[InvisibleSpace]", "-", 
      RowBox[{"2.`", " ", "c3"}], "-", 
      RowBox[{"3.`", " ", "c4"}]}]}], ",", 
    RowBox[{"d1", "\[Rule]", 
     RowBox[{
      RowBox[{"-", "31.201499969823423`"}], "+", 
      RowBox[{"1.`", " ", "d3"}], "+", 
      RowBox[{"2.`", " ", "d4"}]}]}], ",", 
    RowBox[{"d2", "\[Rule]", 
     RowBox[{"83.32281702402335`", "\[InvisibleSpace]", "-", 
      RowBox[{"2.`", " ", "d3"}], "-", 
      RowBox[{"3.`", " ", "d4"}]}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.5311292910462284`*^9, 3.5311293023558755`*^9}, 
   3.5311294220117197`*^9, 3.5311294681033554`*^9, {3.5311296333398066`*^9, 
   3.5311296801894865`*^9}, 3.531129725231063*^9, {3.5311297992002935`*^9, 
   3.531129844282872*^9}, {3.5311298867413006`*^9, 3.531129974292308*^9}, {
   3.5311300370788994`*^9, 3.5311300495226107`*^9}, {3.531130095001212*^9, 
   3.5311301716335955`*^9}, 3.531130659080476*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"FSF", ",", "H", ",", "a1", ",", "a2", ",", "b1", ",", "b2"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FSF", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "13"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a1", ",", "a2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"b1", ",", "b2"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "H", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "4", "}"}], ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", " ", 
   RowBox[{"i", "\[LessEqual]", "4"}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", " ", 
     RowBox[{"j", "\[LessEqual]", "2"}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
       RowBox[{"i", "+", "j", "-", "1"}]}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"v", "[", 
  RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"FSF", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], "==", 
      RowBox[{"H", ".", 
       RowBox[{"v", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"a1", ",", "a2", ",", "b1", ",", "b2"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.5311308601379757`*^9, 3.531130960887738*^9}, {
  3.531131039578239*^9, 3.5311311916159353`*^9}, {3.5311312569256706`*^9, 
  3.5311313157530355`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.531130961884795*^9, 3.531131199203369*^9, 
  3.5311313282807517`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a1", "\[Rule]", "4"}], ",", 
    RowBox[{"a2", "\[Rule]", "7"}], ",", 
    RowBox[{"b1", "\[Rule]", "5"}], ",", 
    RowBox[{"b2", "\[Rule]", "13"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.531130961884795*^9, 3.531131199203369*^9, 
  3.531131328283752*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{
    "FSF", ",", "H1", ",", "H2", ",", "IMA", ",", "IMB", ",", "IMC", ",", 
     "a1", ",", "a2", ",", "a3", ",", "a4", ",", "b1", ",", "b2", ",", "b3", 
     ",", "b4", ",", "c1", ",", "c2", ",", "c3", ",", "c4", ",", "d1", ",", 
     "d2", ",", "d3", ",", "d4", ",", "FSFI", ",", "FSF1I", ",", "vars", ",", 
     "n", ",", "IMvec1", ",", "IMvec2", ",", "H1IM", ",", "H2IM", ",", 
     "H1IMvec1", ",", "H1IMvec2", ",", "H2IMvec1", ",", "H2IMvec2"}], "]"}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"FSF", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "7", ",", "11", ","}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "9", ",", "13"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"17", ",", "3", ",", "16"}], "}"}]}], "}"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FSF", "=", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {"15", "12.496056384008755", "13.330704256005838", 
         "11.29455641418533"},
        {"12.496056384008755", "15", "12.496056384008755", 
         "13.330704256005838"},
        {"13.330704256005838", "12.496056384008755", "15", 
         "12.496056384008755"},
        {"11.29455641418533", "13.330704256005838", "12.496056384008755", "15"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"H1", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"b1", ",", "b2", ",", "b3", ",", "b4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c1", ",", "c2", ",", "c3", ",", "c4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"d1", ",", "d2", ",", "d3", ",", "d4"}], "}"}]}], "}"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"H2", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a1", ",", "b1", ",", "c1", ",", "d1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"a2", ",", "b2", ",", "c2", ",", "d2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"a3", ",", "b3", ",", "c3", ",", "d3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"a4", ",", "b4", ",", "c4", ",", "d4"}], "}"}]}], "}"}]}], 
    ";"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H1", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"b1", ",", "b2", ",", "b3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"c1", ",", "c2", ",", "c3"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H2", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a1", ",", "b1", ",", "c1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a2", ",", "b2", ",", "c2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a3", ",", "b3", ",", "c3"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "H1", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "H2", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IMA", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IMB", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IMC", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", " ", 
   RowBox[{"i", "\[LessEqual]", "n"}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", " ", 
     RowBox[{"j", "\[LessEqual]", "n"}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"IMA", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
       RowBox[{"Prime", "[", 
        RowBox[{"k", "++"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"IMB", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
       RowBox[{"Prime", "[", 
        RowBox[{"k", "++"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"IMC", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
       RowBox[{"Prime", "[", 
        RowBox[{"k", "++"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]}],
   "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "IMA", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "IMB", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IMAvec1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IMAvec2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IMBvec1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IMBvec2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IMCvec1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IMCvec2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", " ", 
   RowBox[{"i", "\[LessEqual]", "n"}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"IMAvec1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"IMAvec1", ",", 
       RowBox[{"IMA", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"IMAvec2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"IMAvec2", ",", 
       RowBox[{
        RowBox[{"Transpose", "[", "IMA", "]"}], "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"IMBvec1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"IMBvec1", ",", 
       RowBox[{"IMB", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"IMBvec2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"IMBvec2", ",", 
       RowBox[{
        RowBox[{"Transpose", "[", "IMB", "]"}], "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"IMCvec1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"IMCvec1", ",", 
       RowBox[{"IMC", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"IMCvec2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"IMCvec2", ",", 
       RowBox[{
        RowBox[{"Transpose", "[", "IMC", "]"}], "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "IMAvec1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "IMAvec2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"FSF", ".", "IMAvec1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"FSF", ".", "IMAvec2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "IMBvec1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "IMBvec2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"FSF", ".", "IMBvec1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"FSF", ".", "IMBvec2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "IMCvec1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "IMCvec2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"FSF", ".", "IMCvec1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"FSF", ".", "IMCvec2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H1IMA", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H2IMA", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H1IMB", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H2IMB", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H1IMC", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H2IMC", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "n", "}"}], ",", 
     RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", 
    RowBox[{
     RowBox[{"-", "n"}], "/", "2"}]}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{
     RowBox[{"n", "/", "2"}], "-", "1"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", 
      RowBox[{
       RowBox[{"-", "n"}], "/", "2"}]}], ",", 
     RowBox[{"j", "\[LessEqual]", 
      RowBox[{
       RowBox[{"n", "/", "2"}], "-", "1"}]}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"H1IMA", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"n", "/", "2"}], "+", "1"}], ",", 
          RowBox[{"j", "+", 
           RowBox[{"n", "/", "2"}], "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"u", "=", 
          RowBox[{
           RowBox[{"-", "n"}], "/", "2"}]}], 
         RowBox[{
          RowBox[{"n", "/", "2"}], "-", "1"}]], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"v", "=", 
           RowBox[{
            RowBox[{"-", "n"}], "/", "2"}]}], 
          RowBox[{
           RowBox[{"n", "/", "2"}], "-", "1"}]], 
         RowBox[{
          RowBox[{"H1", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"u", "-", "i", "+", "n"}], ",", 
             RowBox[{"v", "-", "j", "+", "n"}]}], "]"}], "]"}], "*", 
          RowBox[{"IMA", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"u", "+", 
              RowBox[{"n", "/", "2"}], "+", "1"}], ",", 
             RowBox[{"v", "+", 
              RowBox[{"n", "/", "2"}], "+", "1"}]}], "]"}], "]"}]}]}]}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"H2IMA", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"n", "/", "2"}], "+", "1"}], ",", 
          RowBox[{"j", "+", 
           RowBox[{"n", "/", "2"}], "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"u", "=", 
          RowBox[{
           RowBox[{"-", "n"}], "/", "2"}]}], 
         RowBox[{
          RowBox[{"n", "/", "2"}], "-", "1"}]], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"v", "=", 
           RowBox[{
            RowBox[{"-", "n"}], "/", "2"}]}], 
          RowBox[{
           RowBox[{"n", "/", "2"}], "-", "1"}]], 
         RowBox[{
          RowBox[{"H2", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"u", "-", "i", "+", "n"}], ",", 
             RowBox[{"v", "-", "j", "+", "n"}]}], "]"}], "]"}], "*", 
          RowBox[{"IMA", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"u", "+", 
              RowBox[{"n", "/", "2"}], "+", "1"}], ",", 
             RowBox[{"v", "+", 
              RowBox[{"n", "/", "2"}], "+", "1"}]}], "]"}], "]"}]}]}]}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"H1IMB", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"n", "/", "2"}], "+", "1"}], ",", 
          RowBox[{"j", "+", 
           RowBox[{"n", "/", "2"}], "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"u", "=", 
          RowBox[{
           RowBox[{"-", "n"}], "/", "2"}]}], 
         RowBox[{
          RowBox[{"n", "/", "2"}], "-", "1"}]], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"v", "=", 
           RowBox[{
            RowBox[{"-", "n"}], "/", "2"}]}], 
          RowBox[{
           RowBox[{"n", "/", "2"}], "-", "1"}]], 
         RowBox[{
          RowBox[{"H1", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"u", "-", "i", "+", "n"}], ",", 
             RowBox[{"v", "-", "j", "+", "n"}]}], "]"}], "]"}], "*", 
          RowBox[{"IMB", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"u", "+", 
              RowBox[{"n", "/", "2"}], "+", "1"}], ",", 
             RowBox[{"v", "+", 
              RowBox[{"n", "/", "2"}], "+", "1"}]}], "]"}], "]"}]}]}]}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"H2IMB", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"n", "/", "2"}], "+", "1"}], ",", 
          RowBox[{"j", "+", 
           RowBox[{"n", "/", "2"}], "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"u", "=", 
          RowBox[{
           RowBox[{"-", "n"}], "/", "2"}]}], 
         RowBox[{
          RowBox[{"n", "/", "2"}], "-", "1"}]], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"v", "=", 
           RowBox[{
            RowBox[{"-", "n"}], "/", "2"}]}], 
          RowBox[{
           RowBox[{"n", "/", "2"}], "-", "1"}]], 
         RowBox[{
          RowBox[{"H2", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"u", "-", "i", "+", "n"}], ",", 
             RowBox[{"v", "-", "j", "+", "n"}]}], "]"}], "]"}], "*", 
          RowBox[{"IMB", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"u", "+", 
              RowBox[{"n", "/", "2"}], "+", "1"}], ",", 
             RowBox[{"v", "+", 
              RowBox[{"n", "/", "2"}], "+", "1"}]}], "]"}], "]"}]}]}]}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"H1IMC", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"n", "/", "2"}], "+", "1"}], ",", 
          RowBox[{"j", "+", 
           RowBox[{"n", "/", "2"}], "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"u", "=", 
          RowBox[{
           RowBox[{"-", "n"}], "/", "2"}]}], 
         RowBox[{
          RowBox[{"n", "/", "2"}], "-", "1"}]], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"v", "=", 
           RowBox[{
            RowBox[{"-", "n"}], "/", "2"}]}], 
          RowBox[{
           RowBox[{"n", "/", "2"}], "-", "1"}]], 
         RowBox[{
          RowBox[{"H1", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"u", "-", "i", "+", "n"}], ",", 
             RowBox[{"v", "-", "j", "+", "n"}]}], "]"}], "]"}], "*", 
          RowBox[{"IMC", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"u", "+", 
              RowBox[{"n", "/", "2"}], "+", "1"}], ",", 
             RowBox[{"v", "+", 
              RowBox[{"n", "/", "2"}], "+", "1"}]}], "]"}], "]"}]}]}]}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"H2IMC", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "+", 
           RowBox[{"n", "/", "2"}], "+", "1"}], ",", 
          RowBox[{"j", "+", 
           RowBox[{"n", "/", "2"}], "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"u", "=", 
          RowBox[{
           RowBox[{"-", "n"}], "/", "2"}]}], 
         RowBox[{
          RowBox[{"n", "/", "2"}], "-", "1"}]], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"v", "=", 
           RowBox[{
            RowBox[{"-", "n"}], "/", "2"}]}], 
          RowBox[{
           RowBox[{"n", "/", "2"}], "-", "1"}]], 
         RowBox[{
          RowBox[{"H2", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"u", "-", "i", "+", "n"}], ",", 
             RowBox[{"v", "-", "j", "+", "n"}]}], "]"}], "]"}], "*", 
          RowBox[{"IMC", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"u", "+", 
              RowBox[{"n", "/", "2"}], "+", "1"}], ",", 
             RowBox[{"v", "+", 
              RowBox[{"n", "/", "2"}], "+", "1"}]}], "]"}], "]"}]}]}]}]}], 
      ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "H1IMA", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "H2IMA", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "H1IMB", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "H2IMB", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "H1IMC", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "H2IMC", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H1IMvec1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H1IMvec2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", " ", 
   RowBox[{"i", "\[LessEqual]", "n"}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"H1IMvec1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"H1IMvec1", ",", 
       RowBox[{"H1IMA", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"H1IMvec2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"H1IMvec2", ",", 
       RowBox[{
        RowBox[{"Transpose", "[", "H1IMA", "]"}], "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", " ", 
   RowBox[{"i", "\[LessEqual]", "n"}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"H1IMvec1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"H1IMvec1", ",", 
       RowBox[{"H1IMB", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"H1IMvec2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"H1IMvec2", ",", 
       RowBox[{
        RowBox[{"Transpose", "[", "H1IMB", "]"}], "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", " ", 
   RowBox[{"i", "\[LessEqual]", "n"}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"H1IMvec1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"H1IMvec1", ",", 
       RowBox[{"H1IMC", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"H1IMvec2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"H1IMvec2", ",", 
       RowBox[{
        RowBox[{"Transpose", "[", "H1IMC", "]"}], "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H2IMvec1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H2IMvec2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", " ", 
   RowBox[{"i", "\[LessEqual]", "n"}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"H2IMvec1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"H2IMvec1", ",", 
       RowBox[{"H2IMA", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"H2IMvec2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"H2IMvec2", ",", 
       RowBox[{
        RowBox[{"Transpose", "[", "H2IMA", "]"}], "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", " ", 
   RowBox[{"i", "\[LessEqual]", "n"}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"H2IMvec1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"H2IMvec1", ",", 
       RowBox[{"H2IMB", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"H2IMvec2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"H2IMvec2", ",", 
       RowBox[{
        RowBox[{"Transpose", "[", "H2IMB", "]"}], "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", " ", 
   RowBox[{"i", "\[LessEqual]", "n"}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"H2IMvec1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"H2IMvec1", ",", 
       RowBox[{"H2IMC", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"H2IMvec2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"H2IMvec2", ",", 
       RowBox[{
        RowBox[{"Transpose", "[", "H2IMC", "]"}], "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vars", "=", 
    RowBox[{"{", 
     RowBox[{
     "a1", ",", "a2", ",", "a3", ",", "b1", ",", "b2", ",", "b3", ",", "c1", 
      ",", "c2", ",", "c3"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"H1IMvec1", "\[Equal]", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"FSF", ".", "IMAvec1"}], ",", 
          RowBox[{"FSF", ".", "IMBvec1"}]}], "]"}], ",", 
        RowBox[{"FSF", ".", "IMCvec1"}]}], "]"}]}], ",", "vars"}], "]"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"H2IMvec1", "\[Equal]", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"FSF", ".", "IMAvec1"}], ",", 
         RowBox[{"FSF", ".", "IMBvec1"}]}], "]"}], ",", 
       RowBox[{"FSF", ".", "IMCvec1"}]}], "]"}]}], ",", "vars"}], "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"H1IMvec2", "\[Equal]", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"FSF", ".", "IMAvec1"}], ",", 
           RowBox[{"FSF", ".", "IMBvec1"}]}], "]"}], ",", 
         RowBox[{"FSF", ".", "IMCvec1"}]}], "]"}]}], ",", "vars"}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"H2IMvec2", "\[Equal]", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"FSF", ".", "IMAvec1"}], ",", 
           RowBox[{"FSF", ".", "IMBvec1"}]}], "]"}], ",", 
         RowBox[{"FSF", ".", "IMCvec1"}]}], "]"}]}], ",", "vars"}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"H1IMvec1", "\[Equal]", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"FSF", ".", "IMAvec2"}], ",", 
           RowBox[{"FSF", ".", "IMBvec2"}]}], "]"}], ",", 
         RowBox[{"FSF", ".", "IMCvec2"}]}], "]"}]}], ",", "vars"}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"H2IMvec1", "\[Equal]", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"FSF", ".", "IMAvec2"}], ",", 
           RowBox[{"FSF", ".", "IMBvec2"}]}], "]"}], ",", 
         RowBox[{"FSF", ".", "IMCvec2"}]}], "]"}]}], ",", "vars"}], "]"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"H1IMvec2", "\[Equal]", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"FSF", ".", "IMAvec2"}], ",", 
         RowBox[{"FSF", ".", "IMBvec2"}]}], "]"}], ",", 
       RowBox[{"FSF", ".", "IMCvec2"}]}], "]"}]}], ",", "vars"}], "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"H2IMvec2", "\[Equal]", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"FSF", ".", "IMAvec2"}], ",", 
          RowBox[{"FSF", ".", "IMBvec2"}]}], "]"}], ",", 
        RowBox[{"FSF", ".", "IMCvec2"}]}], "]"}]}], ",", "vars"}], "]"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FSFIM", "=", 
     RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", " ", 
       RowBox[{"i", "\[LessEqual]", "n"}], ",", 
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"FSFIM", "=", 
         RowBox[{"Join", "[", 
          RowBox[{"FSFIM", ",", 
           RowBox[{"FSF", ".", 
            RowBox[{"IM", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}]}], ";"}]}], 
      "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
     RowBox[{"MatrixForm", "[", "FSFIM", "]"}], "\[IndentingNewLine]", 
     RowBox[{"vars1", "=", 
      RowBox[{"{", 
       RowBox[{
       "a1", ",", "a2", ",", "a3", ",", "a4", ",", "b1", ",", "b2", ",", "b3",
         ",", "b4", ",", "c1", ",", "c2", ",", "c3", ",", "c4", ",", "d1", 
        ",", "d2", ",", "d3", ",", "d4"}], "}"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"vars2", "=", 
     RowBox[{"{", 
      RowBox[{
      "a1", ",", "b1", ",", "c1", ",", "d1", ",", "a21", ",", "b2", ",", "c2",
        ",", "d2", ",", "a3", ",", "b3", ",", "c3", ",", "d3", ",", "a4", ",",
        "b4", ",", "c4", ",", "d4"}], "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"FSF1IM", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"n", "^", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"n", "^", "2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", " ", 
       RowBox[{"i", "\[LessEqual]", 
        RowBox[{"n", "^", "2"}]}], ",", 
       RowBox[{"i", "+=", "n"}], ",", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"j", "=", "1"}], ",", " ", 
         RowBox[{"j", "\[LessEqual]", "n"}], ",", 
         RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"k", "=", "1"}], ",", " ", 
           RowBox[{"k", "\[LessEqual]", "n"}], ",", 
           RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"FSF1IM", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "+", "k", "-", "1"}], ",", 
                RowBox[{"j", "+", 
                 RowBox[{"n", 
                  RowBox[{"(", 
                   RowBox[{"k", "-", "1"}], ")"}]}]}]}], "]"}], "]"}], "=", 
             RowBox[{"Prime", "[", 
              RowBox[{"i", "+", "j", "-", "1"}], "]"}]}], ";"}]}], 
          "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], 
      "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
     RowBox[{"MatrixForm", "[", "FSF1IM", "]"}], "\[IndentingNewLine]", 
     RowBox[{"Det", "[", "FSF1IM", "]"}], "\[IndentingNewLine]", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"FSF1IM", ".", "vars1"}], "\[Equal]", "FSFIM"}], ",", 
       "vars1"}], "]"}], "\[IndentingNewLine]", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"FSF1IM", ".", "vars2"}], "\[Equal]", "FSFIM"}], ",", 
       "vars2"}], "]"}]}]}], "\[IndentingNewLine]", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"LinearSolve", "[", 
    RowBox[{"FSF1IM", ",", "FSFIM"}], "]"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5311313812377806`*^9, 3.5311314453994503`*^9}, {
   3.5311319636080904`*^9, 3.5311320133479357`*^9}, {3.5311326660272665`*^9, 
   3.531132806521302*^9}, {3.5311328373510656`*^9, 3.531133040373678*^9}, {
   3.531133109336622*^9, 3.5311331498569403`*^9}, {3.5311336933030233`*^9, 
   3.5311337306681604`*^9}, {3.531133794176793*^9, 3.5311338068175163`*^9}, {
   3.531134092149836*^9, 3.531134122018544*^9}, {3.5311342152228756`*^9, 
   3.5311343302674556`*^9}, {3.531134363830375*^9, 3.531134448798235*^9}, {
   3.53113458735216*^9, 3.531134601139949*^9}, {3.5311348582516546`*^9, 
   3.5311349672798905`*^9}, {3.5311350513987017`*^9, 3.531135060433219*^9}, 
   3.5311354925679355`*^9, 3.531135536381441*^9, {3.53113566468578*^9, 
   3.5311357630534067`*^9}, {3.531135815286394*^9, 3.531135846702191*^9}, {
   3.5311358854764085`*^9, 3.5311359161611633`*^9}, {3.5311361112273207`*^9, 
   3.531136123966049*^9}, {3.5311364910220437`*^9, 3.531136583687344*^9}, {
   3.5311366142020893`*^9, 3.531136652314269*^9}, {3.531136715587888*^9, 
   3.5311367604904566`*^9}, {3.5311367939703712`*^9, 
   3.5311368042349586`*^9}, {3.531136836054778*^9, 3.531136836341795*^9}, {
   3.531137303463513*^9, 3.5311375655305023`*^9}, {3.5311379627322206`*^9, 
   3.531137964836341*^9}, {3.531138003582557*^9, 3.531138037120476*^9}, {
   3.5311381783315525`*^9, 3.5311381912022886`*^9}, {3.531138271412876*^9, 
   3.531138287669806*^9}, {3.531141355050414*^9, 3.53114144152236*^9}, {
   3.5311417107277575`*^9, 3.531141909174108*^9}, {3.531141945866207*^9, 
   3.531141955033731*^9}, {3.531142745304932*^9, 3.5311427626979265`*^9}, {
   3.5311430015505886`*^9, 3.5311430376236515`*^9}, {3.531143106357583*^9, 
   3.531143205852274*^9}, {3.531143256596176*^9, 3.5311432903931093`*^9}, {
   3.531143434201335*^9, 3.531143476281741*^9}, {3.531143515488984*^9, 
   3.5311435365541887`*^9}, {3.5311435913313217`*^9, 
   3.5311436517697787`*^9}, {3.5311436893439283`*^9, 
   3.5311437313033276`*^9}, {3.5311438113039036`*^9, 3.531143831385052*^9}, {
   3.5311438710313196`*^9, 3.5311439142637925`*^9}, {3.531143966006752*^9, 
   3.531143973894203*^9}, {3.531144116454357*^9, 3.531144132148255*^9}, {
   3.531144197365985*^9, 3.5311444006136103`*^9}, {3.531144483635359*^9, 
   3.5311445572825713`*^9}, {3.5311446866109686`*^9, 3.531144690674201*^9}, {
   3.5311449060045166`*^9, 3.5311449397634478`*^9}, {3.5311451138724065`*^9, 
   3.5311452317301474`*^9}, {3.5311452832370934`*^9, 
   3.5311453789605684`*^9}, {3.531145428166383*^9, 3.531145442576207*^9}, {
   3.531146122129075*^9, 3.531146164042473*^9}, {3.53114621801256*^9, 
   3.5311462221227946`*^9}, 3.5311462552746906`*^9, {3.5311462885705953`*^9, 
   3.531146325034681*^9}, {3.531146460358421*^9, 3.5311465598341103`*^9}, {
   3.531146627625988*^9, 3.531146647883147*^9}, {3.531146702436267*^9, 
   3.5311469301722927`*^9}, {3.5311469818362474`*^9, 
   3.5311469935959206`*^9}, {3.5311470676911583`*^9, 
   3.5311470975618668`*^9}, {3.5311471408243413`*^9, 3.5311472267112536`*^9}, 
   3.531147574294134*^9, {3.5311476332715073`*^9, 3.5311478399753304`*^9}, {
   3.5311478791735725`*^9, 3.5311480514324255`*^9}, {3.5311480887715607`*^9, 
   3.5311481079616585`*^9}, {3.5311481492080173`*^9, 3.531148182872943*^9}, {
   3.531148230950693*^9, 3.5311482512058516`*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2", "7"},
     {"17", "29"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.5311482522859135`*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"3", "11"},
     {"19", "31"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.531148252294914*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"2"},
      {"7"},
      {"17"},
      {"29"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.5311482523279157`*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"2"},
      {"17"},
      {"7"},
      {"29"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.531148252343917*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"671.6365030515351`"},
      {"729.0154947203356`"},
      {"731.5194383363269`"},
      {"763.3370011485604`"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.531148252355917*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"663.2900243315643`"},
      {"754.0549308802481`"},
      {"706.4800021764144`"},
      {"771.6834798685311`"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.531148252368918*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"3"},
      {"11"},
      {"19"},
      {"31"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.5311482523849187`*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"3"},
      {"19"},
      {"11"},
      {"31"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.5311482523949194`*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"785.8712499279525`"},
      {"853.1650723843735`"},
      {"849.8264808963852`"},
      {"882.9464873547865`"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.5311482524169207`*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"779.1940669519759`"},
      {"873.1966213123035`"},
      {"829.7949319684552`"},
      {"889.6236703307632`"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.531148252426921*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"5"},
      {"13"},
      {"23"},
      {"37"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.5311482524499226`*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"5"},
      {"23"},
      {"13"},
      {"37"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.5311482524599233`*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"961.9535182051053`"},
      {"1038.125636224461`"},
      {"1036.456340480467`"},
      {"1072.181234231204`"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.531148252474924*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {"953.6070394851345`"},
      {"1063.1650723843736`"},
      {"1011.4169043205544`"},
      {"1080.5277129511746`"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.5311482524859247`*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"2", " ", "b2"}], "+", 
       RowBox[{"7", " ", "b3"}], "+", 
       RowBox[{"17", " ", "c2"}], "+", 
       RowBox[{"29", " ", "c3"}]}], 
      RowBox[{
       RowBox[{"2", " ", "b1"}], "+", 
       RowBox[{"7", " ", "b2"}], "+", 
       RowBox[{"17", " ", "c1"}], "+", 
       RowBox[{"29", " ", "c2"}]}]},
     {
      RowBox[{
       RowBox[{"2", " ", "a2"}], "+", 
       RowBox[{"7", " ", "a3"}], "+", 
       RowBox[{"17", " ", "b2"}], "+", 
       RowBox[{"29", " ", "b3"}]}], 
      RowBox[{
       RowBox[{"2", " ", "a1"}], "+", 
       RowBox[{"7", " ", "a2"}], "+", 
       RowBox[{"17", " ", "b1"}], "+", 
       RowBox[{"29", " ", "b2"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.5311482524979253`*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"2", " ", "b2"}], "+", 
       RowBox[{"17", " ", "b3"}], "+", 
       RowBox[{"7", " ", "c2"}], "+", 
       RowBox[{"29", " ", "c3"}]}], 
      RowBox[{
       RowBox[{"2", " ", "a2"}], "+", 
       RowBox[{"17", " ", "a3"}], "+", 
       RowBox[{"7", " ", "b2"}], "+", 
       RowBox[{"29", " ", "b3"}]}]},
     {
      RowBox[{
       RowBox[{"2", " ", "b1"}], "+", 
       RowBox[{"17", " ", "b2"}], "+", 
       RowBox[{"7", " ", "c1"}], "+", 
       RowBox[{"29", " ", "c2"}]}], 
      RowBox[{
       RowBox[{"2", " ", "a1"}], "+", 
       RowBox[{"17", " ", "a2"}], "+", 
       RowBox[{"7", " ", "b1"}], "+", 
       RowBox[{"29", " ", "b2"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.531148252517926*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"3", " ", "b2"}], "+", 
       RowBox[{"11", " ", "b3"}], "+", 
       RowBox[{"19", " ", "c2"}], "+", 
       RowBox[{"31", " ", "c3"}]}], 
      RowBox[{
       RowBox[{"3", " ", "b1"}], "+", 
       RowBox[{"11", " ", "b2"}], "+", 
       RowBox[{"19", " ", "c1"}], "+", 
       RowBox[{"31", " ", "c2"}]}]},
     {
      RowBox[{
       RowBox[{"3", " ", "a2"}], "+", 
       RowBox[{"11", " ", "a3"}], "+", 
       RowBox[{"19", " ", "b2"}], "+", 
       RowBox[{"31", " ", "b3"}]}], 
      RowBox[{
       RowBox[{"3", " ", "a1"}], "+", 
       RowBox[{"11", " ", "a2"}], "+", 
       RowBox[{"19", " ", "b1"}], "+", 
       RowBox[{"31", " ", "b2"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.531148252526927*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"3", " ", "b2"}], "+", 
       RowBox[{"19", " ", "b3"}], "+", 
       RowBox[{"11", " ", "c2"}], "+", 
       RowBox[{"31", " ", "c3"}]}], 
      RowBox[{
       RowBox[{"3", " ", "a2"}], "+", 
       RowBox[{"19", " ", "a3"}], "+", 
       RowBox[{"11", " ", "b2"}], "+", 
       RowBox[{"31", " ", "b3"}]}]},
     {
      RowBox[{
       RowBox[{"3", " ", "b1"}], "+", 
       RowBox[{"19", " ", "b2"}], "+", 
       RowBox[{"11", " ", "c1"}], "+", 
       RowBox[{"31", " ", "c2"}]}], 
      RowBox[{
       RowBox[{"3", " ", "a1"}], "+", 
       RowBox[{"19", " ", "a2"}], "+", 
       RowBox[{"11", " ", "b1"}], "+", 
       RowBox[{"31", " ", "b2"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.5311482525469284`*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"5", " ", "b2"}], "+", 
       RowBox[{"13", " ", "b3"}], "+", 
       RowBox[{"23", " ", "c2"}], "+", 
       RowBox[{"37", " ", "c3"}]}], 
      RowBox[{
       RowBox[{"5", " ", "b1"}], "+", 
       RowBox[{"13", " ", "b2"}], "+", 
       RowBox[{"23", " ", "c1"}], "+", 
       RowBox[{"37", " ", "c2"}]}]},
     {
      RowBox[{
       RowBox[{"5", " ", "a2"}], "+", 
       RowBox[{"13", " ", "a3"}], "+", 
       RowBox[{"23", " ", "b2"}], "+", 
       RowBox[{"37", " ", "b3"}]}], 
      RowBox[{
       RowBox[{"5", " ", "a1"}], "+", 
       RowBox[{"13", " ", "a2"}], "+", 
       RowBox[{"23", " ", "b1"}], "+", 
       RowBox[{"37", " ", "b2"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.531148252557929*^9}},
 FontSize->18],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"5", " ", "b2"}], "+", 
       RowBox[{"23", " ", "b3"}], "+", 
       RowBox[{"13", " ", "c2"}], "+", 
       RowBox[{"37", " ", "c3"}]}], 
      RowBox[{
       RowBox[{"5", " ", "a2"}], "+", 
       RowBox[{"23", " ", "a3"}], "+", 
       RowBox[{"13", " ", "b2"}], "+", 
       RowBox[{"37", " ", "b3"}]}]},
     {
      RowBox[{
       RowBox[{"5", " ", "b1"}], "+", 
       RowBox[{"23", " ", "b2"}], "+", 
       RowBox[{"13", " ", "c1"}], "+", 
       RowBox[{"37", " ", "c2"}]}], 
      RowBox[{
       RowBox[{"5", " ", "a1"}], "+", 
       RowBox[{"23", " ", "a2"}], "+", 
       RowBox[{"13", " ", "b1"}], "+", 
       RowBox[{"37", " ", "b2"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.5311482525729294`*^9}},
 FontSize->18],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a1", "\[Rule]", "11.294556414185337`"}], ",", 
    RowBox[{"a2", "\[Rule]", "12.49605638400876`"}], ",", 
    RowBox[{"a3", "\[Rule]", "12.496056384008739`"}], ",", 
    RowBox[{"b1", "\[Rule]", "13.33070425600582`"}], ",", 
    RowBox[{"b2", "\[Rule]", "14.999999999999996`"}], ",", 
    RowBox[{"b3", "\[Rule]", "13.330704256005841`"}], ",", 
    RowBox[{"c1", "\[Rule]", "12.49605638400876`"}], ",", 
    RowBox[{"c2", "\[Rule]", "12.496056384008758`"}], ",", 
    RowBox[{"c3", "\[Rule]", "11.294556414185328`"}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.5311482525839305`*^9}},
 FontSize->18],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a1", "\[Rule]", "11.29455641418526`"}], ",", 
    RowBox[{"a2", "\[Rule]", "12.49605638400877`"}], ",", 
    RowBox[{"a3", "\[Rule]", "12.496056384008732`"}], ",", 
    RowBox[{"b1", "\[Rule]", "13.330704256005891`"}], ",", 
    RowBox[{"b2", "\[Rule]", "14.99999999999999`"}], ",", 
    RowBox[{"b3", "\[Rule]", "13.330704256005848`"}], ",", 
    RowBox[{"c1", "\[Rule]", "12.496056384008746`"}], ",", 
    RowBox[{"c2", "\[Rule]", "12.496056384008766`"}], ",", 
    RowBox[{"c3", "\[Rule]", "11.294556414185323`"}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.5311366539653635`*^9, 3.531136762423567*^9, 3.53113680566304*^9, 
   3.5311368372048445`*^9, 3.531137571571848*^9, 3.531137967122472*^9, 
   3.531138007028754*^9, 3.5311380378705187`*^9, 3.531138192371355*^9, {
   3.531138276405162*^9, 3.531138288501854*^9}, 3.5311406778676815`*^9, {
   3.5311414330678763`*^9, 3.53114144240141*^9}, 3.531141819889001*^9, {
   3.531141891411092*^9, 3.5311419096151333`*^9}, 3.531141955820776*^9, {
   3.53114274929216*^9, 3.531142764743044*^9}, 3.531143208041399*^9, {
   3.5311432685208583`*^9, 3.53114328235565*^9}, 3.5311434775628147`*^9, 
   3.531143537345234*^9, 3.5311452328992143`*^9, 3.5311463265407667`*^9, 
   3.5311472287843723`*^9, 3.5311475750091753`*^9, 3.531148109579751*^9, 
   3.53114818440003*^9, {3.531148237574072*^9, 3.5311482525949306`*^9}},
 FontSize->18]
}, Open  ]],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"15", "12.496056384008755", "13.330704256005838", "11.29455641418533"},
     {"12.496056384008755", "15", "12.496056384008755", "13.330704256005838"},
     {"13.330704256005838", "12.496056384008755", "15", "12.496056384008755"},
     {"11.29455641418533", "13.330704256005838", "12.496056384008755", "15"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Input"]
},
WindowSize->{1898, 885},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 7002, 197, 658, "Input"],
Cell[7572, 221, 521, 8, 30, "Output"],
Cell[8096, 231, 408, 7, 21, "Message"],
Cell[8507, 240, 1917, 45, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10461, 290, 2788, 85, 252, "Input"],
Cell[13252, 377, 164, 4, 30, "Output"],
Cell[13419, 383, 335, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13791, 397, 32826, 863, 3939, "Input"],
Cell[46620, 1262, 1424, 30, 66, "Output"],
Cell[48047, 1294, 1423, 30, 66, "Output"],
Cell[49473, 1326, 1492, 34, 108, "Output"],
Cell[50968, 1362, 1490, 34, 108, "Output"],
Cell[52461, 1398, 1556, 34, 108, "Output"],
Cell[54020, 1434, 1556, 34, 108, "Output"],
Cell[55579, 1470, 1493, 34, 108, "Output"],
Cell[57075, 1506, 1493, 34, 108, "Output"],
Cell[58571, 1542, 1558, 34, 108, "Output"],
Cell[60132, 1578, 1556, 34, 108, "Output"],
Cell[61691, 1614, 1493, 34, 108, "Output"],
Cell[63187, 1650, 1493, 34, 108, "Output"],
Cell[64683, 1686, 1556, 34, 108, "Output"],
Cell[66242, 1722, 1561, 34, 108, "Output"],
Cell[67806, 1758, 2082, 50, 66, "Output"],
Cell[69891, 1810, 2080, 50, 66, "Output"],
Cell[71974, 1862, 2084, 50, 66, "Output"],
Cell[74061, 1914, 2086, 50, 66, "Output"],
Cell[76150, 1966, 2084, 50, 66, "Output"],
Cell[78237, 2018, 2086, 50, 66, "Output"],
Cell[80326, 2070, 1454, 26, 35, "Output"],
Cell[81783, 2098, 1454, 26, 35, "Output"]
}, Open  ]],
Cell[83252, 2127, 862, 19, 72, "Input"]
}
]
*)

(* End of internal cache information *)
